From: Kim F. Storm <storm@cua.dk>
Date: Thu, 9 Apr 2009 17:13:54 +0000 (+0000)
Subject: (cua--indent-rectangle): Insert tabs using
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~899
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=77330e6ab163c9bb7ec6348eab7b2d85d15eb0c4;p=emacs.git

(cua--indent-rectangle): Insert tabs using
tab-to-tab-stop to respect indent-tabs-mode.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 60fe2a7f7f2..2c66355d615 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-09  Kim F. Storm  <storm@cua.dk>
+
+	* emulation/cua-rect.el (cua--indent-rectangle): Insert tabs using
+	tab-to-tab-stop to respect indent-tabs-mode.
+
 2009-04-09  Richard M Stallman  <rms@gnu.org>
 
 	* mail/rmailkwd.el (rmail-set-label): Warn if multipe labels spec'd.
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 29ee3cf45a4..f809aa9f57c 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -847,7 +847,7 @@ If command is repeated at same position, delete the rectangle."
              (move-to-column col t))
 	 (cond
 	  (to-col (indent-to to-col))
-	  (ch (insert ch))
+	  ((and ch (not (eq ch ?\t))) (insert ch))
 	  (t (tab-to-tab-stop)))
          (if (cua--rectangle-right-side t)
              (cua--rectangle-insert-col (current-column))